Mac Magazin/MacEasy 8/Mac Magazin and MacEasy Magazine CD - Issue 08.iso/Sharewarebibliothek/HyperCard/Dock/Space Dock/SPACE SHUTTLE II/SPACE SHUTTLE II/stack_-1.xml

Extensible Markup Language | 1994-12-20 | 28KB | 20 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in</name>
    <id>-1</id>
    <cardCount>1</cardCount>
    <cardID>3061</cardID>
    <listID>2141</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>296</height>
    </cardSize>
    <script>-- ©1994 Randall E. Ayling-- Technical support:-- Randy Ayling-- 121, rue de Carency-- 62400 Béthune-- France-- Tel: [phone]-- Fax: [phone]on unforimp adresseif there is not a field "bodtitle" then exit unforimpif there is not a field "letexte" then exit unforimpanswer file "Import ASCII text" of type "TEXT"if it is empty or the result is "Cancel" then exit unforimpput it into filenameopen file filenameread from file filename until eofclose file filenameif it is empty then exit unforimpput it into lysIncomingset itemdelimiter to colonput last item of filename into filenameset itemdelimiter to commalocktiterepeat while lysIncoming is not emptydomenu "New Card"set the name of this card to filenameput filename into field "bodtitle"put char 1 to 25000 of lysincoming into fld "letexte"delete char 1 to 25000 of lysincomingend repeatend unforimp-- Journal specific stuffon tabKeyend tabKeyon upDateAList lalisteif fld laliste is not empty and last char of fld laliste is not return then put return after fld lalisteput fld laliste into thelistrepeat with i = 1 to the number of backgroundsgo background iif there is a fld laliste then put thelist into fld lalisteend repeatend upDateAListon uniformlistsupDateAList "lesSections"upDateAList "lesAuthors"end uniformlistsfunction lesmots thenamereturn word 1 to the number of words in thename of thenameend lesmotsfunction addsuf thename,thesufput 31- length(thesuf) into spfput char 1 to spf of thename into thenameput lesmots(thename) into thenameput thename && thesuf into thenamereturn thenameend addsuffunction thesufreturn last word of short name of this stackend thesuffunction actname thenameput thesuf() into theadditionput 31- length(theaddition) into spfput lesmots(spf,thename) into bnput bn && theaddition into bnif there is a card bn then return bnelse return thenameend actnamefunction riglist thefldput fld thefld into thelistif thelist is not empty and last char of thelist is not return then put return after thelistreturn thelistend rigliston doSuf duput short name of this card into cnput last word of cn into lwcnput strip32(fld "bodtitle") into ctput thesuf() into lwsnif du then set name of this cd to ctelse if lwcn is not lwsn then set name of this cd to addsuf(ct,lwsn)end doSufon upDateLists chngnmsglobal jprp,jlprpif the optionKey is up or the shiftKey is up then exit upDateListsput field "bodtitle" of first card into sumnameif sumname is empty thenAnswer line 46 of jlprpexit upDatelistsend ifif chngnms is false thenput line 47 of jlprp into promptanswer prompt with line 2 of jprp,line 1 of jprpelseput line 48 of jlprp into promptanswer prompt with line 2 of jprp,line 22 of jprp,line 1 of jprpend ifif it is line 2 of jprp then exit upDateListsif it is line 22 of jprp then put true into theundoelse put false into theundolocktitepush cardput strip32(line 1 of sumname) into sumnameput return & sumname into fld "mwtoken" of first cdput riglist("lesSections") into thelistif theundo or not chngnms then put riglist("lesAuthors") after thelistput empty into thecnmsput the number of cds into ncif nc>1 thenrepeat with i=1 to ncif there is not a fld "bodtitle" of cd i then next repeatput line 1 of fld "bodtitle" of cd i into anmput strip32(anm) into line i of thecnmsend repeatput return after thecnmsend ifrepeat with i = 1 to the number of lines in thelistput line i of thelist into listiput strip32(listi) into listiput return & listi & return into naillistif naillist is in thecnms or listi is line 1 of thecnms thenput search(thecnms,listi,false,all) into thedepif thedep is not empty thenrepeat with j=1 to the number of lines in thedepput item 1 of line j of thedep into candiif line candi of thecnms is listi thengo card candiif there is not a fld "mwtoken" then exit repeatif chngnms is false thenif sumname is not in fld "mwtoken" then put sumname into line 1 of field "mwtoken"if listi is not in fld "mwtoken" thenif line 2 of fld "mwtoken" is empty then put listi into line 2 of field "mwtoken"else put (listi & ", ") before first char of line 2 of fld "mwtoken"end ifelsedoSuf theundoend ifexit repeatend ifend repeatend ifend ifend repeatpop cardend upDateListson listallkeysglobal jprp,jlprpif the optionKey is up or the shiftKey is up then exit listallKeysput line 49 of jlprp into promptanswer prompt with line 2 of jprp,line 1 of jprpif it is line 2 of jprp then exit listallkeysput the number of cards into nmput "mwtoken" into tfput empty into theclefsset cursor to watchrepeat with j=1 to nmput fld tf of cd j into cfrepeat with k=1 to the number of lines in cfif line k of cf is empty then next repeatrepeat with l=1 to the number of items in line k of cfput lesmots(item l of line k of cf) & return after theclefsend repeatend repeatend repeatsort lines of theclefsput the number of lines in theclefs into tlrepeat with i= tl down to 2if line i of theclefs is line i-1 of theclefs then delete line i of theclefsend repeatput theclefs into fld "lesauthors"end listallkeyson journalRepglobal jprp,jlprpanswer line 1 of jlprp with line 5 of jprp,line 6 of jprp,line 7 of jprpput it into extentanswer line 2 of jlprp with "1","2",line 2 of jprpif it is line 2 of jprp then exit journalRepif it is "1" then put "le texte 3"  into repnameelse put "le texte 4" into repnamepush cardlocktitehide groupsif extent is line 6 of jprp thenunmark all cardsmark this cardelse if extent is line 5 of jprp then mark all cardsif extent is not line 7 of jprp thenrepeat with i = 1 to the number of bgsput empty into field "theMarker" of card 1 of bg iend repeatend ifgo first cardopen report printing with template repnameprint marked cardsclose printingshow groupspop cardend journalRepon textvis vismodeput the visible of field "letexte" into texvisif not vismode and texvis then exit textvisif texvis then hide card pictureelse show card picturerepeat with i = 1 to the number of fieldsif "text" is in short name of field i or "col" is in short name of field i then set the visible of field i to not texvisend repeatend textvison markauthor argglobal theauthorset cursor to watchif arg is empty then put dowholeline() into theauthorelse put arg into theauthorif theauthor is empty then exit markauthorunmark all cardsmark cards by finding theauthor in field "mwtoken"leaveamarkseekamarkend markauthoron markauthor1global theauthorput the clicktext into thetextif thetext is empty then exit markauthor1put the clickChunk into thechunkput word 2 of thechunk into thebegput word 4 of thechunk into theendput value(the target) into tartexrepeat until thebeg is 0subtract 1 from thebegput char thebeg of tartex into tarchaif tarcha is comma or tarcha is return then exit repeatput tarcha before thetextend repeatput true into tarcharepeat until tarcha is emptyadd 1 to theendput char theend of tartex into tarchaif tarcha is comma or tarcha is return then exit repeatput tarcha after thetextend repeatput lesmots(thetext) into thetextif first char of thetext is "©" then put word 2 to the number of words in thetext of thetext into thetextelse put lesmots(thetext) into thetextunmark all cardsput thetext into theauthormark cards by finding theauthor in field "mwtoken"leaveamarkseekamarkopenCardend markauthor1on leaveamarkglobal theAuthor,jlprpput the number of marked cards into nmif nm>1 then put line 3 of jlprp into promptelse put line 4 of jlprp into promptput nm && prompt && theAuthor into promptrepeat with i = 1 to the number of bgsput prompt into line 2 of field "theMarker" of card 1 of bg iend repeatend leaveamarkon seekamarkglobal theAuthorif the number of marked cards is not 0 thenshow fld "theMarker"lock screenlistcardshide fld "theMarker"unlock screen with visual iris closeend ifend seekamarkon lyscput the clickChunk into theChunkOfTextif theChunkOfText is empty then exit lyscput the textStyle of theChunkOfText into theStyleif "group" is not in theStyle thenput value(the clickline) into laphAput dowholeLine() into pitchitelseput the clickText into laphAselect theChunkOfTextend ifif the commandKey is down then lysb actname(lapha)else lysa actname(lapha)end lysc-- specific altered standard format supporton resetsharedput empty into field "Situation"put empty into fld "lesSections"put empty into fld "lesAuthors"end resetsharedon deepscreensend mouseup to bg btn "overviews"end deepscreenon controlKey thenumif thenum is 9 then sboatelse if thenum is 27 then deepscreenelse if thenum is 16 then journalRepelse if thenum is 21 then unforimpelse if thenum>48 and thenum<53 then gnm thenumelse if thenum is not 14 and thenum is not 15 then pass controlKeyend controlKeyon listcardsglobal jprp,jlprpput empty into mylistif the shiftKey is down or "mwtoken" is in the target or "lessections" is in the target or "lesauthors" is in the target thenput true into mcoif the number of marked cards is 0 then exit listcardsput the number of this card into cnuput line 10 of jlprp into prompt -- ∆repeat with i = 1 to the number of marked cardsset cursor to busyput the number of marked card i into tnif tn is cnu then put i into curcardput (short name of marked card i) & return after mylistend repeatelseput false into mcoput the number of this card into curcardput line 11 of jlprp into prompt -- ∆repeat with i = 1 to the number of cards in this stackset cursor to busyput (short name of card i) & return after mylistend repeatend ifif the selectedField is not empty and the selectedField is not "message box" thenget showList(mylist,prompt,true,true,line 8 of jprp,curcard,64,64) -- ∆else get showList(mylist,prompt,true,false,line 9 of jprp,curcard,64,64) -- ∆if line 1 of it is line 2 of jprp then exit listcards -- ∆if line 1 of it is line 10 of jprp then -- ∆put item 1 of line 2 of it into thepickif thepick is not empty thenif mco then go marked card thepickelse go card thepickend ifelseif line 1 of it is line 11 of jprp thenput line 2 of it into thepickif thepick is not empty thenif (the number of items in thepick)>1 thenrepeat with i = 1 to the number of items in thepicktype line (item i of thepick) of mylist & returnend repeatelse type line (thepick) of mylistend ifend ifend ifend listcardson lysmoddput the short date into line 1 of field "modified"put the seconds into line 2 of field "modified"end lysmodd-- standard format support, no dialogon gnm thenumif thenum is 49 then go first marked cardelse if thenum is 50 then go prev marked cardelse if thenum is 51 then go next marked cardelse go last marked cardend gnmon locktiteset lockscreen to trueset lockrecent to trueset lockmessages to trueset cursor to watchend locktiteon sboatif there is not a field "mwtoken" then verdeverelseif the locktext of field "letexte" is false then lireelse ecrireend ifend sboaton lirechoose browse toolselect emptyrepeat with i = 1 to the number of fieldsif the sharedtext of field i is true then next repeatset lockText of field i to trueend repeatend lireon ecrirechoose browse toolselect emptyput "créée,modifiéd,created,modified,cardOfCards,mwtoken" into laisselesrepeat with i = 1 to the number of fieldsif short name of field i is in laisseles then next repeatset lockText of field i to falseend repeatend ecrireon verdeverif there is not a field 1 then exit verdeverselect emptyput not the locktext of field 1 into newstaterepeat with i = 1 to the number of fieldsset the locktext of field i to newstateend repeatend verdeveron vraidocglobal bsmsif bsms is not empty then pass vraidocelse lysa trueselect emptyhide msgend vraidocon mouseUpglobal bsmsif bsms is not empty then pass mouseUpput the target into chkif second word of chk is not "field" then pass mouseUpelse lysa trueselect emptyhide msgpass mouseUpend mouseUpon link meclysa mec -- mnemotechend linkon ensuretif field "toc" is empty then exit ensuretset the itemdelimiter to tabput the number of lines in field "toc" into toclrepeat with i = tocl down to 1if the number of items in line i of field "toc" is 1 then next repeatif line i of field "toc" is not empty then delete item 2 to the number of items in line i of field "toc" of line i of field "toc"else delete line i of field "toc"end repeatif (field "toc" is not empty) and (last char of field "toc" is not return) then put return after field "toc"end ensureton catact lechampglobal bsms,theid0if bsms is not empty then pass catactif lechamp is empty then put "toc" into lechampput dowholeline() into adresseif adresse is not empty thenput composid() & return after theid0bsmsnwin adressehide msgend ifend catacton directlink theHRglobal bsmsif bsms is not empty then pass directlinkput word 2 of the clickLine into theLineput dowholeline() into adresseofffrom theLine,theHRend directlinkon offfrom i,thefieldidput line i of field thefieldid into considerthisif considerthis is empty then exit offfromstdLink considerthisend offfromon stdlink x,yglobal rlwt,noobsput empty into noobsput empty into noobs0if y is empty thenput disponible(x) into thelineput item 1 of theline into xput item 2 of theline into yend ifput genpath(y) into yif there is a window y thenif parp(y) is not y thenlock screenshow window yput true into noobs0end ifif short name of this card is not x and x is not empty thenif there is a card x or ("Card id" is in x and there is a card id (last word of x)) thenif noobs0 is true then put true into noobsif the lockscreen is false then lock screenif "Card id" is not in x then go card xelse go card id (last word of x)unlock screen with visual iris closeput empty into noobselse put "--" && x & "?"else unlock screen with visual iris closeelseif x is empty then go stack y in a new windowelseif "Card id" is not in x then go card x of stack y in a new windowelse go card id (last word of x) of stack y in a new windowend ifif the result is "Cancel" then exit stdlinkif the result is not empty then put "--" && x & "?" -- ∆end ifset the longwindowtitles to rlwtend stdlinkon bsmsnwin yglobal rlwtset cursor to watchput genpath(y) into yif there is a window y thenif parp(y) is not y thenshow window yend ifelsego stack y in a new windowif the result is not empty then go stack yend ifset the longwindowtitles to rlwtend bsmsnwinfunction parp yput y into yyset itemdelimiter to colonput short name of this stack into last item of yyset itemdelimiter to commareturn yyend parpfunction genPath yglobal rlwtput the longwindowtitles into rlwtset the itemDelimiter to colonput the number of items in y into countpathset the itemDelimiter to commaif there is a stack y thenif countpath>1 thenset the longwindowtitles to trueput value (last word of the long name of stack y) into yelse set the longwindowtitles to falseelse exit to HyperCardreturn yend genPathfunction dowholelineput clickLine() into theLineput the value of clickLine() into adresseif adresse is empty then return emptyselect theLinereturn strip32(adresse)end dowholelinefunction strip32 thenameput char 1 to 32 of thename into thenameput lesmots(thename) into thenamereturn thenameend strip32function stripPath1 path,deliif deli is empty then put colon into deliset the itemDelimiter to deliput last item of path into itset the itemDelimiter to commareturn itend stripPath1function stripPath2 path,deliput line 1 of path into pathif last char of path is period then delete last char of pathput strippath1(path,comma) into pathif deli is not empty then put strippath1(path) into pathput strip32(path) into pathreturn pathend stripPath2function selectLYSFile promptanswer file prompt of type "Stack"if (it is empty) or (the result = "Cancel")then exit to HyperCardreturn itend selectLYSFilefunction getLYSPathName longNameput lastHCItem(":",longName) into fileNamereturn char 1 to (length(longName) - length(fileName)) of longNameend getLYSPathNameon updateLYSPaths thePathglobal Stacksput stacks into itif stringIsInContainer(thePath,it) then exit updateLYSPathslocktitepush cardgo homeget bg field "Paths" of card "Stacks"if (it ≠ empty) and (the last char of it ≠ return)then put return before thePathput thePath after bg field "Paths" of card "Stacks"put bg field "Paths" of card "Stacks" into stackspop cardend updateLYSPathsfunction stringIsInContainer theString,theContainerif (theString = first line of theContainer) or ¬(theString = last line of theContainer) then return trueelse if theContainer contains return & theString & return ¬then return truereturn falseend stringIsInContainerfunction composnomput quote & short name of this card & quote && quote & short name of this stack & quote into lenomreturn lenomend composnomfunction disponible thelineput value(word 1 of theLine) into tsn1put value(word 2 of theLine) into tsn2put tsn1 & comma & tsn2 into ttnreturn ttnend disponiblefunction composidput abbreviated id of this card into cardidput abbreviated name of this stack into stackidput cardid && "of" && stackid into linkidreturn linkidend composidon LysNextlock screenif the commandKey is down thenif the shiftKey is down then go last marked cardelse go last cardelseif the shiftKey is down then go next marked cardelsego nextend ifend ifunlock screen with visual effect wipe leftend LysNexton LysPreviouslock screenif the commandKey is down thenif the shiftKey is down then go first marked cardelse go first cardelseif the shiftKey is down then go previous marked cardelsego previousend ifend ifunlock screen with visual effect wipe rightend LysPreviousfunction notmwstackif there is a field "mwtoken"then return falseelse return trueend notmwstackon showBasicNavif there is not a window "basicNavPal" then palette "basicNavPal","254,0"end showBasicNavon returnKeyglobal MyLastMsgif the optionKey is down then put MyLastMsg into the msg boxelseput the msg box into MyLastMsgpass returnKeyend ifend returnKeyon sacshow all cardsend sacon ccdomenu "copy card"end ccon csdomenu "Compact Stack"end cson tdput "--" && the long time && "-" && the dateend tdon dockglobal bsmsif bsms is empty thenstart using stack "LysRes"if the result is not empty then put "-- DOCK Hypertext is not available"else bsmsreconend ifend dock-- standard format support, with dialogon lysb mecglobal bsms,jlprpif bsms is not empty then pass lysbanswer line 5 of jlprpend lysbon lysa mecglobal bsms,theid0,jprp,jlprpif bsms is not empty then pass lysaif the shiftKey is down or the optionKey is down then put true into coolelse put false into coolset cursor to watchput empty into theLineput empty into heyput empty into theStyleif mec is true thenput the clickChunk into theChunkOfTextif theChunkOfText is empty then exit lysaput the textStyle of theChunkOfText into theStyleif "group" is not in theStyle thenput value(the clickline) into laphAput dowholeLine() into pitchitelseput the clickText into laphAselect theChunkOfTextend ifelseput mec into laphAend ifput stripPath2(laphA) into laphAif laphA is empty then exit lysaput quote & laphA & quote into laphBput short name of this stack into snthsput quote & snths & quote into snthsBput short name of this card into snthcput quote & snthc & quote into snthcBput composid() & return after theid0if there is a card laphA and laphA is not snthc thenvisual iris closego card laphAexit lysaelseif there is a stack laphA and laphA is not snths thenbsmsnwin laphAexit lysaend ifend ifput empty into heyif there is a field "themaster" thenput field "themaster" into weighsatonput search(weighsaton,laphB,false) into heyif hey is not empty thenput line item 1 of hey of weighsaton into thelineput true into locallinkend ifend ifif hey is not empty thenput composnom() into thetitleRput disponible(theline) into imhereif imhere is false then exit lysaput item 1 of imhere into xput item 2 of imhere into ystdlink x,yexit lysaend if-- link failsdelete last line of theid0if cool is true thenput line 6 of jlprp && laphA into prompt -- ∆put selectLYSFile(prompt) into longFileName -- full pathput lastHCItem(":",longFileName) into shortFileNameset cursor to watch--  extract pathput getLYSPathName(longFileName) into thePathupdateLYSPaths thePathend ifend lysaon lysmtcglobal bsmskeep,jprp,jlprpif bsmskeep is not empty then pass lysmtcif the optionKey is down thenanswer line 50 of jlprp with line 19 of jprp,line 23 of jprp,line 2 of jprpif it is line 2 of jprp then exit lysmtcif it is line 19 of jprp then mark all cardselse unmark all cardselseset the marked of this card to not the marked of this cardend ifopenCardend lysmtcon LYSRollglobal bsmskeep,jlprpif bsmskeep is not empty then pass LYSRollif the shiftKey is down thenlysmtcelseput line 14 of jlprp into themess1 -- ∆put field "mwtoken" into themess2if length(themess2) > 249 then put (char 1 to 249 of themess2) & "..." into themess2put themess2 & return & return into themess3ask themess1 with themess3if the result is empty thenrepeat until last char of it is not returndelete last char of itend repeatput it into field "mwtoken"end ifend ifend LYSRollon nommer donttellglobal vieuxnom,nouveaunom,jprp,jlprplysmoddput short name of this card into thenameput line 1 of field "bodtitle" into theCardput length(thecard) into lencarput stripPath2(theCard,colon) into thecard1if thecard1 is empty then put the id of this card into thecard0else put thecard1 into thecard0if thecard0 is not thecard then put line 15 to 16 of jlprp && lencar into promptelse put line 17 of jlprp into promptif donttell is not true and thecard0 is not thename thenput prompt & return & return & line 18 of jlprp && thename & return & line 19 of jlprp && thecard1 & return into prompt -- ∆answer prompt with line 12 of jprp,line 13 of jprp -- ∆if it is not line 13 of jprp thenexit nommerend ifput thename into vieuxnomput thecard0 into nouveaunomelseif (donttell is true and lencar>32) thenput prompt & return & return & line 20 of jlprp && thecard1 & return into prompt -- ∆answer promptend ifend ifset the name of this card to thecard1end nommeron ensuretL thefieldglobal jprp,ljprpput field thefield into czechif czech is empty then exit ensuretLput the number of lines in czech into czech1put false into probrepeat with i = czech1 down to 1if line i of czech is empty thendelete line i of czechnext repeatend ifput true into probput the number of words in line i of czech into czech1if czech1 > 3 or czech1 < 2 then exit repeatif first char of word 1 of line i of czech is not quote then exit repeatif last char of word 1 of line i of czech is not quote then exit repeatif first char of word 2 of line i of czech is not quote then exit repeatif last char of word 2 of line i of czech is not quote then exit repeatif czech1 = 3 and first char of word 3 of line i of czech is not quote then exit repeatif czech1 = 3 and last char of word 3 of line i of czech is not quote then exit repeatput false into probend repeatif prob is true thenput line 22 of jlprp && i & return & return & (line i of czech) & return & return & ¬line 23 to 24 of jlprp into bla -- ∆answer blaexit ensuretLend ifif (czech is not empty) and (last char of czech is not return) then put return after czechput czech into field theFieldend ensuretLon dcglobal jlprpif the number of cards is 1 then exit dcput line 7 of jlprpdomenu "delete card"end dcon scpglobal jlprpshow card pictureput line 8 of jlprpend scpon hcpglobal jlprphide card pictureput line 9 of jlprpend hcp-- language supporton loadlangglobal jprp,jlprpif there is a bg btn "local" thenif the hilite of bg btn "local" thenput fld "blocal" into jprpput fld "plocal" into jlprpelseput fld "bnative" into jprpput fld "pnative" into jlprpend ifend ifend loadlangon nativeif there is a bg btn "local" thenset the hilite of bg btn "local" to falseloadlangend ifend nativeon localif there is a bg btn "local" thenset the hilite of bg btn "local" to trueloadlangend ifend local-- system message supporton closeBackGroundif there is a window "basicNavPal" then close window "basicNavPal"pass closeBackGroundend closeBackGroundon suspendStackif there is a window "basicNavPal" then close window "basicNavPal"pass suspendStackend suspendStackon openBackgroundglobal bsmsloadlangif bsms is not empty then pass openBackgroundelseshow groupsif there is a fld "mwtoken" then if not the visible of fld "cardofcards" then showBasicNavend ifpass openBackgroundend openBackgroundon resumeStackglobal bsmsloadlangif bsms is not empty then pass resumeStackelseshow groupsif there is a fld "mwtoken" then if not the visible of fld "cardofcards" then showBasicNavend ifpass resumeStackend resumeStackon closeCardtextvis falsepass closeCardend closeCardon opencardglobal bsmsif bsms is not empty then pass openCardif notmwStack() then pass openCardput the icon of bg btn "bulbD" into tikif the marked of this card thenif tik is not 16698 thenset the icon of bg btn "bulbD" to 16698end ifelse if tik is not 16694 then set the icon of bg btn "bulbD" to 16694put the number of this card & "/" & the number of cards of this stack & " " into bkgnd field "CardOfCards"add 1 to field "popular"pass openCardend opencardon newbackgroundglobal bsms,jlprpresetsharedif bsms is not empty or notmwStack() then pass newbackgroundif the number of cds is not 1 then answer line 25 of jlprp -- ∆pass newbackgroundend newbackgroundon newcardglobal username,bsms,jlprpif bsms is not empty or notmwStack() or the lockmessages then pass newcardput short name of this card into thecardif "card id" is in thecard then put empty into thecardput the number of this card & "/" & the number of cards of this stack & " " into bkgnd field "CardOfCards"ask line 21 of jlprp with thecard -- ∆if it is not empty and the result is not "Cancel" thenput it into field "bodtitle"elselocktitedcgo previousexit to hypercardend ifnommer trueput the short date into line 1 of field "created"put the short date into line 1 of field "modified"put the seconds into line 2 of field "created"put the seconds into line 2 of field "modified"put 0 into field "popular"if field "mwtoken" is empty and username is not empty then put username into field "mwtoken"pass newcardend newcardon editlocalput not the visible of fld "bnative" into tvset the visible of fld "bnative" to tvset the visible of fld "pnative" to tvset the visible of fld "blocal" to tvset the visible of fld "plocal" to tvend editlocal</script>
    <background id="2662" file="background_2662.xml" name="" />
    <card id="3061" file="card_3061.xml" marked="false" name="Two Column Layout" owner="2662" />
</stack>